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Sy 
Ll 
Ll 
Ll 
Ll 
Ll 
Ll 
Ll 
Ll 
Ll 
Ll 
LLL IIIIIIIII BBBBBBBBBBBB RRRRRRRRRRRR TTTTTTTTTTTTTTT «LLL Ll 
LLL HII BBBBBBBBBBBB RRRRRRRRRRRR TTTTTTTTTTTTITTT «LLL + 
LLL LITT BBB RRRRRRRRRRRR TTTTTTTTTITITITT «LLL L 
LLL 111 BBB BBB RRR RRR TTT LLL | Ll 
LLL II] BB BBB RRR RRR TTT LLL LI 
LLL 11] BBB BBB RRR RRR TTT LLL | Ll 
LLL II] BBB BBB RRR RRR TTT LLL | Ll 
LLL Il] BBB RRR RRR TTT LLL Ll 
LLL Il] BBB BBB RRR RRR TTT LLL Ll 
LLL III B RRRRRRRRRRRR TTT LLL Ll 
LLL Ill BBBBBBBBBBBB RRRRRRRRRRRR TTT LLL LI 
LLL Ill 8 RRRRRRRRRRRR TTT LLL ul 
LLL III BRA BBB RRR RRR TTT LLL 
LLL II] BBB RRR RRR TTT LLL Ll 
LLL II] BER BBB RRR RRR TTT LLL Ll 
LLL II] BRB BBB RRR RRR TTT LLL Ll 
LLL III ERB BBB RRR RRR TTT LLL Ll 
LLL Ill BSB BB RRR RRR TTT LLL Ll 
LLELLLLLLLLLLLLL IIIIIIIII BBBBBBBBBBBB RRR RRR TTT LELLLLLLLLLLLLL Ll 
LLELLLLLLLLLLLLL TITIII111 BBBBBBBBBBBB RRR RRR TTT LI 
LLELLLLLLLLLLLLL LIIIIIII BBBBBBBBBBBB RRR RRR TTT LELLLLLLLLLLLLL 
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LLLLLLLLLLLLLLL | 
| 
| 
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-TITLE STRSANALYZE_SDESC - inet yse string descriptor 
-IDENT /1*004/ ; File: STRANASTR.MAR Edit: DG1004 
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COPYRIGHT (c) 1978, 1980, 1982, 1984 BY 

DIGITAL EQUIPMENT CORPORATION, MAYNARD, MASSACHUSETTS. 

ALL RIGHTS RESERVED. 

THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY BE USED AND COPIED 
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0 

TRANSFERRED. 
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++ 
FACILITY: General Utility Library 
ABSTRACT: 
This module contains routines which extract the length and 


address of the first byte of a string from any supported 
class of string descriptor. 


So 
So 


; ENVIRONMENT: Runs at any access mode, AST Reentrant 


: AUTHOR: R. Reichert, CREATION DATE: 2-NOV-1981 
: MODIFIED BY: 


1- 8 - Original. RKR 2-NOV-1981 
1- ¢ - Use general mode pedress ing. SBL 30-Nov-1981 

1-005 = Add support for class SO s ring descriptors. DG 3-0ct-1983. 
1-004 - ors to SB. DG 27-Feb-1984. 


Change class SO string descrip 
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SS OO OOOO SOOO 
SoOoOOooooooooooooo 


STRSANALYZE_SDESC ~ 
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string descriptor 16-SEP-1984 00:34:25 VAX/VMS Macro V04-00 pe 
ons . Serf abs PRiT8i97 HMNRS Bacto Mee OO, mans 2 (3) | 


OWN STORAGE: 


.PSECT -STRSDATA, PIC USR, CON, REL, LCL, NOSHR, - 
EXE, RD. WRT. LONG 


NONE 
PSECT DECLARATIONS: 


-PSECT _STRSCODE PIC, USR, CON, REL, LCL, SHR, - 
EXE, RD, NOWRT, LONG 


So 
o 
So 
So 
Sete Ge Ge te Sete Ge Ge Ge Ge ts 


So 
=] 
o 
So 


: .SBTTL DECLARATIONS 
¢ ; LIBRARY MACRO CALLS: 
4 SDSCDEF ; DSC$_ symbols 
$3 5 SSSDEF ; S$S$_~symbols | 
8 7 3; EXTERNAL DECLARATIONS: 
444 53 ; Prevent undeclared symbols from being automatically global. | 
$ 61 -DSABL GBL 
86 eEXTRN sTRs ILLSTRCLA 3 tlegat string class | 
00 6 ~EXTRN LIBSSTOP ; to signal fatal error 
0000 64 ; 
4 65 ; MACROS: 
Bn8 66 ; 
000 67 ; NONE 
0000 68 
0000 69 ; EQUATED SYMBOLS: 
0000 70 
0000 71 NONE 
0000 i} 
0000 7 
0000 74 
0000 75 
0000 76 
0000 77 
0000 78 
0000 79 
0000 80 
0000 &1 
0000 Ht 
0000 8 
0000 84 


oooooceoceo 
oooooooo 
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ee -SBTTL STRSANALYZE_SDESC = Analyze string descriptor 
$ FUNCTIONAL DESCRIPTION: 


Extracts length and address of ist data byte from any supported 
class of string descriptor. 


CALLING SEQUENCE: 
STRSANALYZE_SDESC (DESC.rt.dx, LENGTH.ww.r, ADDR.wa.r ) 
FORMAL PARAMETERS: 


DESC.rt.dx address of a string descriptor 
LENGTH. ww.r address of a word to receive the strings length 
ADDR.wa.r address of a longword to receive the address 


of the Ist data byte of the string. 
IMPLICIT INPUTS: 


| 
| 
~ 
IMPLICIT OUTPUTS: 
NONE 
COMPLETION STATUS: 
NONE 
SIDE EFFECTS: | 
Signals STRS_ILLSTRCLA if invalid descriptor 


SOOCOSCOSOSOSOSOSOSOSOSOOSOOSOSOSOOSOSOSOOOOSOOSOOOOOOSO 


FOO OANVOOOCOCOCOOCOCOSOOSCOSCOSOOOCOOOOOOOOOOoOOO: 


SOOO COCSOOSOSOSOSOSOSSOSOSOSOSOSOSOSOSOSOSOSOSCOSSSoOO 


WANNA PPNPNPNINPNINN 4 9 = = OOO 0000000000000 0MMmMr 


FW" OD ODNAU EARS @ O OOON A UE WIN O OO NA UE WWI CO OD NOAUEW  O OONIO 
>ro- 


— 2 > — ss a 2s as ss 2s ss 2s as a ss 


SOOOCSGOOOCOOCOSOSOOOCOOOOSOOSOS OOOO SOOOOOOSOSoOO 


0 
0 ; Parameter displacements off AP 
00000004 0 ESC = 4 
00000008 0 LENGTH = 8 
0000000C $ DDR = 12 
4000 0 -ENTRY STRSANALYZE_SDESC, “M<IV> Entry point 
50 04 AC 00 8 MOVL DESC (AP) 3 peéress of descriptor 
00000015'GF 16 JSB G*STRSANALYZE_SDESC_R1_ : Length -> >R0 
; address- 
08 BC) 50 88 a0 MOVW RO, @LENGTH(AP) ; length to callers variable 
0c BC 51 OD 1 MOVL R1, @ADDR(AP) ; address to callers variable 
04 001 RET ; Return to caller 
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ac -SBTTL STRSANALYZE_SDESC_R1 = Analyze string descriptor 
: FUNCTIONAL DESCRIPTION: | 


Extracts length and address of Ist data byte from any supported 
class of string descriptor. 


CALLING SEQUENCE: 
STRSANALYZE_SDESC (DESC.rt.dx, LENGTH.wl.v, ADDR.wa.v ) 
FORMAL PARAMETERS: 
DESC.rt.dx (Input in RO) address of a string descriptor 
LENGTH.wl.v (Returned in RO) the strings Length | 
ADDR.wa.v (Returned in R1) the address 
of the ist data byte of the string. 
IMPLICIT INPUTS: 
NONE 
IMPLICIT OUTPUTS: 
NONE 
COMPLETION STATUS: 
NONE 
SIDE EFFECTS: | 


Signais STR$_ILLSTRCLA if invalid string descriptor found 


a ee ee DD DD ee ee ae ed ed 
PV PVPV IVP SUSU USSSA SIT TIT SII 
a a ed ed = od od 8 od od 3 3 
SIND D DDD AAA DTT BBB BE EWI 
—OOONA UE WO OONA UE WWI O OONO UE WP OOONO 
Bete Ge Ge Ge Ge Ge Ge Ge Ge Be Be Se Be Ge Ge Se Se Ge Ge Ge Se Ge Ge Se Ge Se Se Ge Se Se Ge Se 


SOoOOOOCOOOSOOOOSOOSOOOOOOOOOOOOO 
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or 60 83 00 


SOoooooooooooooooSo 
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05 
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Sooooooooooooooeo 
GOQAOSWUINVIVIVIUIF SLL LE 
——DOC TTC PWT TN NMN® 


Sooooooooooooooo 


i) 
Soper igtor yp a 
nalyze string de 6=-SEP 
3 STRSANALYZE_SDESC_R1:: 
OVL DSCSA_POINTE 
CASEB DSCS$B_CLASS( 
10$: «WORD CLASS_2-10$ 
«WORD CLASS_S-10$ 
-WORD CLASS_0-10$ 
«WORD CLASS_V-10$ 
«WORD CLASS_A-10$ 
WOR CLASS_P=10$ 
«WORD CLASS_PI-10$ 
WOR BLASS d= 198 
~WORD CLASS_JI- iH 
«WORD CLASS_SD-10$ 
-WORD CLASS_NCA-10$ 
«WORD CLASS_VS-10$ 
«WORD CLASS_VSA-10$ 
WOR CLASS_UBS-10$ 
«WORD CLASS_UBA-10$ 
WOR CLASS_SB-10$ 
CLASS_V: 
CLASS_P: 
CLASS_PI: 
CLASS_J: 
CLASS_JI: 
CLASS_VSA: 
CLASS_UBS: 
CLASS_UBA: 
ERROR: PUSHL #STRS_ILLSTRCLA 
CALLS #1, G*LIBSSTOP 
CLASS_2: 
CLASS_S: 
CLASS_D: 
CLASS_SD: 
CLASS_SB: 
MOVZWL DSCSW_LENGTH(RO), 
RSB 
CLASS_NCA: 
CLASS_A: 
0 DSCS$L_ARSIZ 
BITL #*XFFFFOOOO 
BNEQU ERROR 
RSB 
CLASS_VS: 
MOVZWL (R1)+, RO 
RSB 
END 


Bete Ge Ge Ge Ge Ge Ge Ge Ge Ge Ge Ge Se Ge Ge 
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Rt ; assume address of ist byte 
SCSKkCLASS_Z, #DSCS$K_CLASS_SB 
1 S 
¢ D 
V (obsolete) 
4 A 
5 P (obsolete) 
§ PI (obsolete) 
J (obsolete) 
8 JI (obsolete) 
9 S 
10 NCA 
11 vs 
\¢ VSA 
1 UBS 
14 UBA 
15 $B 


obsolete classes 


nonstring classes that fall inrange 


RO 


ee. 


RO 


; varying 


; inval ptring class or 
invalid wire in classes 


; tonal” Teeat error - no return 
; read Like class _S 


Length 
return to caller 


assume its reaily contiguous 


array size. = osength, of string 
make sure 

else Seiece 

return to caller 


strin ne 

Length -> RO, R1 -> addr of 
Ist data byte 

return to caller 


; End of module STRSANALYZE_SDESC 


Gueaecoossoucessosesooose$ 


; Performance indicators H 


Phase Page faults CPU Time Elapsed Time 
Initialization 29 O: : 
Command processing :00: 


Pass 
— table sort 


9 
ass 2 
Symbol table output 

Psect synopsis output 

Cross-reference output 
Assembler run totals 41 


i 
: 80. 
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R = of | 
CLASS_A FR 
CLASS_D 4B R 
CLASS J 3E | 
CLASS_JI ER 
CLASS_NCA 4F R 
CLASS_P M3 R 
$S_P1 ER | 
CLASS_S 4B R 
CLASS_SB 4B R 
CLASS_SD 4B R 0 
CLASS_UBA ER 8 
CLASS_UBS ER 
CLASS_V 44 ER 8 
CLASS_VS 00 DR ; 
CLASS_VSA 4444 ER 0 
CLASS_2Z 00000048 R 03 
DESC = 00000004 | 
DSCSA_POINTER = 44 
DSC$B_CLASS = 00000003 
DSCS$K_CLASS_SB = 444444 
DSCSK_CLASS 7 = si 444 00 
DSCSL_ARSIZE = 0000000C | 
DSC$W_LENGTH = 00000000 
ERROR QO000003E R 03 
LENGTH = 00000008 
LIBSSTOP eereenee = =X 00 
STRSANALYZE_SDESC 00000000 RG 03 
STRSANALYZE_SDESC_R1 00000015 RG 03 
STRS_ILLSTRELA eeereree§ XK 00 
estrone nn eee roan + 
' Psect synopsis H 
PSECT name Allocation PSECT No. Attributes 
$ 00000000 < 0.) 00 ¢ O.) NOPIC USR CCN ABS LCL NOSHR NOEXE NORD NOWRT NOVEC BYTE 
$ 00000000 0.) 01 1.) NOPIC USR CON ABS LCL NOSHR EXE RD WRT NOVEC BYTE 
_STRSDATA 00000000 ( 0.) 02 ¢ ¢°} PIC USR CON REL LCL NOSHR NOEXE RD WRT NOVEC LONG 
_STRSCODE 00000061 ( 97.) O35 ¢ of PIC USR CON REL LCL SHR EXE RD NOWRT NOVEC LONG 
} 
| 
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MBrSEb= 1882 FRGiFT EMRTE 
rking aa Limit wes wee pages. 


aH" bytes (55 pages) o rtual memory were used te buffer phe intermediate goge 
here were pages of synvel § geose, mee al peorer E hold 562 non-loca gnd local symbols. 
source Lines were read in Pass 1, prod yc n object records in Pass 2d. 
pages of virtual memory were Fi to define 8 macros. 


eet eee oe anecaeanmanaonan + 


! Macro Library statistics ! 


$ueeeeneee oom Se Sane ea aman + 


Macro Library name Macros defined 
“$255$DUA28: CSYSLIBISTARLET. MLB;2 5 
604 GETS were required to define 5 macros. 


There were no errors, warnings or information messages. 


Bese Manaser.mar:1 2%" cS) 
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